home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / util / misc / sss.lha / sss / main.esa < prev    next >
Text File  |  1998-10-26  |  898b  |  35 lines
  1. *******************************************************************************
  2. * main v1.2.1
  3. *******************************************************************************
  4.  
  5.     machine    68020
  6.     include    defs.i
  7.  
  8. *******************************************************************************
  9.  
  10.     when.s Init[]    ;initialization
  11.  
  12.      when.s ParseCmdLn[CmdLnPtr]    ;get command line args
  13.       Print[#txt_title]    ;must come after ParseCmdLine[]
  14.       when.s ~Settings[]    ;open files, allocmem, etc.
  15.        GiveInfo[]    ;show some info
  16.        Split[]        ;if no err, execute splitting
  17.       ewhen
  18.       ShowResult[d0]    ;d0 ret. by Settings[] or Split[]
  19.      othw
  20.       Print[#txt_title]
  21.       Print[#txt_UsgHlp]    ;show help text
  22.      ewhen
  23.  
  24.      CleanUp[]        ;final cleanup
  25.     ewhen
  26.     rts
  27.  
  28. *******************************************************************************
  29. * subroutines and data
  30.  
  31.     include    split.ei
  32.     include    opt.ei
  33.     include    misc.ei
  34.     include    data.i
  35.